home *** CD-ROM | disk | FTP | other *** search
Text File | 1992-01-29 | 40.0 KB | 1,368 lines |
- Newsgroups: comp.sources.misc
- From: dvadura@plg.waterloo.edu (Dennis Vadura)
- Subject: v27i134: dmake - dmake Version 3.8, Part33/41
- Message-ID: <1992Jan29.164929.1423@sparky.imd.sterling.com>
- X-Md4-Signature: cb2daf5655f9a1894a9485c31bcbb74c
- Date: Wed, 29 Jan 1992 16:49:29 GMT
- Approved: kent@sparky.imd.sterling.com
-
- Submitted-by: dvadura@plg.waterloo.edu (Dennis Vadura)
- Posting-number: Volume 27, Issue 134
- Archive-name: dmake/part33
- Environment: Atari-ST, Coherent, Mac, MSDOS, OS/2, UNIX
- Supersedes: dmake: Volume 19, Issue 22-58
-
- ---- Cut Here and feed the following to sh ----
- # this is dmake.shar.33 (part 33 of a multipart archive)
- # do not concatenate these parts, unpack them in order with /bin/sh
- # file dmake/tos/arlib.c continued
- #
- if test ! -r _shar_seq_.tmp; then
- echo 'Please unpack part 1 first!'
- exit 1
- fi
- (read Scheck
- if test "$Scheck" != 33; then
- echo Please unpack part "$Scheck" next!
- exit 1
- else
- exit 0
- fi
- ) < _shar_seq_.tmp || exit 1
- if test -f _shar_wnt_.tmp; then
- sed 's/^X//' << 'SHAR_EOF' >> 'dmake/tos/arlib.c' &&
- X
- static int
- _check_cache( name, lib, pmtime, touch )/*
- ==========================================
- X Check to see if we have cached member in lib, if so return time in pmtime
- X and return TRUE, otherwise return FALSE, if touch is TRUE then touch
- X the archive member instead. */
- char *name;
- char *lib;
- time_t *pmtime;
- int touch;
- {
- X register MEMPTR mp;
- X register LIBPTR lp;
- X
- X for( lp=_cache; lp != NIL(LIB) && lp->lb_name != lib; lp=lp->lb_next );
- X if( lp == NIL(LIB) ) return( FALSE );
- X
- X mp = _find_member( lp, name );
- X if( mp == NIL(MEM) || !mp->m_valid ) return( FALSE );
- X
- X if( touch == TRUE )
- X {
- X mp->m_time = *pmtime;
- X mp->m_valid = 1;
- X }
- X else
- X *pmtime = mp->m_time;
- X
- X lp->lb_valid = 1;
- X lp->lb_members = mp;
- X
- X return( TRUE );
- }
- X
- X
- X
- static int
- _cache_member( name, lib, mtime )/*
- ===================================
- X Cache name in lib along with it's time */
- char *name;
- char *lib;
- time_t mtime;
- {
- X register MEMPTR mp;
- X register LIBPTR lp;
- X
- X for( lp=_cache;
- X lp != NIL(LIB) && lp->lb_name != NIL(char) && lp->lb_name != lib;
- X lp=lp->lb_next);
- X
- X if( lp == NIL(LIB) )
- X {
- X lp = (LIBPTR) malloc(sizeof(LIB));
- X if( lp == NIL(LIB) ) No_ram();
- X
- X lp->lb_name = lib;
- X lp->lb_members = NIL(MEM);
- X lp->lb_next = _cache;
- X lp->lb_valid = 0;
- X _cache = lp;
- X }
- X
- X /* On UNIX ar does not allow multiple copies of the same .o file to live
- X * in the same AR file. If this is not TRUE then use the commented out
- X * version to set the value of mp. */
- X
- X /*mp = _find_member(lp, name);*/
- X mp = NIL(MEM);
- X
- X if( mp == NIL(MEM) )
- X {
- X mp = (MEMPTR) malloc(sizeof(char)*offsetof(MEM,m_name[strlen(name)+1]));
- X if( mp == NIL(MEM) ) No_ram();
- X
- X strcpy( mp->m_name, name );
- X mp->m_time = mtime;
- X
- X if( lp->lb_members == NIL(MEM) ) {
- X mp->m_next = mp;
- X lp->lb_members = mp;
- X }
- X else {
- X mp->m_next = lp->lb_members->m_next;
- X lp->lb_members->m_next = mp;
- X lp->lb_members = mp;
- X }
- X }
- X else
- X mp->m_time = mtime;
- X
- X mp->m_valid = 1;
- X
- X return( lp->lb_valid );
- }
- X
- X
- static MEMPTR
- _find_member( lp, name )
- LIBPTR lp;
- char *name;
- {
- X register MEMPTR mp = lp->lb_members;
- X
- X if( mp == NIL(MEM) ) return(mp);
- X
- X do {
- X if( !strcmp(mp->m_name, name ) ) return( mp );
- X mp = mp->m_next;
- X }
- X while( mp != lp->lb_members );
- X
- X return( NIL(MEM) );
- }
- #endif
- X
- X
- X
- void
- void_lcache( lib, member )/*
- ============================
- X Void the library cache for lib. If member is NIL(char) then nuke all
- X of the members, if member is NOT NIL(char) then invalidate only that
- X member. */
- char *lib;
- char *member;
- {
- #if LC
- X register LIBPTR lp;
- X register MEMPTR mp;
- X register MEMPTR tmp;
- X
- X for( lp=_cache; lp != NIL(LIB) && lp->lb_name != lib; lp=lp->lb_next );
- X if( lp == NIL(LIB) ) return;
- X
- X if( member == NIL(char) ) {
- X mp = lp->lb_members;
- X do {
- X tmp = mp->m_next;
- X (void) free( mp );
- X mp = tmp;
- X } while( mp != lp->lb_members );
- X
- X lp->lb_valid = 0;
- X lp->lb_members = NIL(MEM);
- X lp->lb_name = NIL(char);
- X }
- X else {
- X mp=lp->lb_members;
- X do {
- X if( strcmp( member, mp->m_name) == 0 ) {
- X lp->lb_members = mp->m_next;
- X mp->m_valid = 0;
- X }
- X
- X mp=mp->m_next;
- X } while( mp != lp->lb_members );
- X }
- #endif
- }
- SHAR_EOF
- chmod 0640 dmake/tos/arlib.c ||
- echo 'restore of dmake/tos/arlib.c failed'
- Wc_c="`wc -c < 'dmake/tos/arlib.c'`"
- test 13303 -eq "$Wc_c" ||
- echo 'dmake/tos/arlib.c: original size 13303, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/config.h ==============
- if test -f 'dmake/tos/config.h' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/config.h (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/config.h' &&
- /* RCS -- $Header: /u2/dvadura/src/generic/dmake/src/tos/config.h,v 1.1 1992/01/24 03:27:15 dvadura Exp $
- -- SYNOPSIS -- Configurarion include file.
- --
- -- DESCRIPTION
- -- There is one of these for each specific machine configuration.
- -- It can be used to further tweek the machine specific sources
- -- so that they compile.
- --
- -- AUTHOR
- -- Dennis Vadura, dvadura@watdragon.uwaterloo.ca
- -- CS DEPT, University of Waterloo, Waterloo, Ont., Canada
- --
- -- COPYRIGHT
- -- Copyright (c) 1990 by Dennis Vadura. All rights reserved.
- --
- -- This program is free software; you can redistribute it and/or
- -- modify it under the terms of the GNU General Public License
- -- (version 1), as published by the Free Software Foundation, and
- -- found in the file 'LICENSE' included with this distribution.
- --
- -- This program is distributed in the hope that it will be useful,
- -- but WITHOUT ANY WARRANTY; without even the implied warrant of
- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- -- GNU General Public License for more details.
- --
- -- You should have received a copy of the GNU General Public License
- -- along with this program; if not, write to the Free Software
- -- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- --
- -- LOG
- -- $Log: config.h,v $
- X * Revision 1.1 1992/01/24 03:27:15 dvadura
- X * dmake Version 3.8, Initial revision
- X *
- */
- X
- #include <osbind.h>
- X
- /* define this for configurations that don't have the coreleft function
- X * so that the code compiles. To my knowledge coreleft exists only on
- X * Turbo C, but it is needed here since the function is used in many debug
- X * macros. */
- #define coreleft() Malloc(-1L)
- X
- /* Define the getcwd function that is used in the code, since BSD does
- X * not have getcwd, but call it getwd instead. */
- extern char *getcwd ANSI((char *, int));
- X
- /* Don't need the const decl */
- #define CONST
- X
- /* a small problem with pointer to voids on some unix machines needs this */
- #define PVOID void *
- SHAR_EOF
- chmod 0640 dmake/tos/config.h ||
- echo 'restore of dmake/tos/config.h failed'
- Wc_c="`wc -c < 'dmake/tos/config.h'`"
- test 2029 -eq "$Wc_c" ||
- echo 'dmake/tos/config.h: original size 2029, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/config.mk ==============
- if test -f 'dmake/tos/config.mk' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/config.mk (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/config.mk' &&
- # This is an OS specific configuration file
- # It assumes that OBJDIR, TARGET and DEBUG are previously defined.
- # It defines CFLAGS, LDARGS, CPPFLAGS, STARTUPFILE, LDOBJS
- # PRINTER, PRINTFLAGS
- # It augments SRC, OBJDIR, TARGET, CFLAGS, LDLIBS
- #
- PRINTER = hw
- PRINTFLAGS = -P$(PRINTER)
- STARTUPFILE = $(OS)/startup.mk
- CPPFLAGS = $(CFLAGS)
- LDOBJS = $(CSTARTUP) $(OBJDIR)/{$(<:f)}
- LDARGS = $(LDFLAGS) -o $@ $(OBJDIR)/*$O
- LDFLAGS += -s
- LD = $(CC)
- X
- # Debug flags
- DB_CFLAGS = -g -DDBUG
- DB_LDFLAGS = -g
- DB_LDLIBS =
- X
- # NO Debug flags
- NDB_CFLAGS = -O
- NDB_LDFLAGS =
- NDB_LDLIBS =
- X
- # Local configuration modifications for CFLAGS.
- CFLAGS += -I$(OS)
- X
- # Sources that must be defined for each different version
- OS_SRC += arlib.c ruletab.c runargv.c
- DOS_SRC = rmprq.c runargv.c dirbrk.c rmprq.c
- UNIX_SRC = arlib.c
- BSD_SRC = putenv.c tempnam.c
- X
- .SETDIR=$(OS) : $(OS_SRC)
- .SETDIR=msdos : $(DOS_SRC)
- .SETDIR=unix : $(UNIX_SRC)
- .SETDIR=unix/bsd43 : $(BSD_SRC)
- X
- SRC += $(OS_SRC) $(DOS_SRC) $(UNIX_SRC) $(BSD_SRC)
- X
- # Set source dirs so that we can find files named in this
- # config file.
- .SOURCE.h : $(OS)
- X
- # See if we modify anything in the lower levels.
- .IF $(OSRELEASE) != $(NULL)
- X .INCLUDE .IGNORE : $(OS)$(DIRSEPSTR)$(OSRELEASE)$(DIRSEPSTR)config.mk
- .END
- SHAR_EOF
- chmod 0640 dmake/tos/config.mk ||
- echo 'restore of dmake/tos/config.mk failed'
- Wc_c="`wc -c < 'dmake/tos/config.mk'`"
- test 1262 -eq "$Wc_c" ||
- echo 'dmake/tos/config.mk: original size 1262, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/dirbrk.c ==============
- if test -f 'dmake/tos/dirbrk.c' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/dirbrk.c (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/dirbrk.c' &&
- /* RCS -- $Header: /u2/dvadura/src/generic/dmake/src/tos/dirbrk.c,v 1.1 1992/01/24 03:27:11 dvadura Exp $
- -- SYNOPSIS -- define the directory separator string.
- --
- -- DESCRIPTION
- -- Define this string for any character that may appear in a path name
- -- and can be used as a directory separator. Also provide a function
- -- to indicate if a given path begins at the root of the file system.
- --
- -- AUTHOR
- -- Dennis Vadura, dvadura@watdragon.uwaterloo.ca
- -- CS DEPT, University of Waterloo, Waterloo, Ont., Canada
- --
- -- COPYRIGHT
- -- Copyright (c) 1990 by Dennis Vadura. All rights reserved.
- --
- -- This program is free software; you can redistribute it and/or
- -- modify it under the terms of the GNU General Public License
- -- (version 1), as published by the Free Software Foundation, and
- -- found in the file 'LICENSE' included with this distribution.
- --
- -- This program is distributed in the hope that it will be useful,
- -- but WITHOUT ANY WARRANTY; without even the implied warrant of
- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- -- GNU General Public License for more details.
- --
- -- You should have received a copy of the GNU General Public License
- -- along with this program; if not, write to the Free Software
- -- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- --
- -- LOG
- -- $Log: dirbrk.c,v $
- X * Revision 1.1 1992/01/24 03:27:11 dvadura
- X * dmake Version 3.8, Initial revision
- X *
- */
- X
- #include "extern.h"
- #include <ctype.h>
- X
- /* tos uses /, \, and : */
- char* DirBrkStr = "/\\:";
- X
- /*
- ** Return TRUE if the name is the full specification of a path name to a file
- ** starting at the root of the file system, otherwise return FALSE
- */
- int
- If_root_path(name)
- char *name;
- {
- X return( (strchr(DirBrkStr, *name) != NIL(char)) ||
- X (isalpha(*name) && name[1] == ':') );
- }
- SHAR_EOF
- chmod 0640 dmake/tos/dirbrk.c ||
- echo 'restore of dmake/tos/dirbrk.c failed'
- Wc_c="`wc -c < 'dmake/tos/dirbrk.c'`"
- test 1890 -eq "$Wc_c" ||
- echo 'dmake/tos/dirbrk.c: original size 1890, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/make.sh ==============
- if test -f 'dmake/tos/make.sh' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/make.sh (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/make.sh' &&
- mkdir objects
- gcc -c -I. -Itos -O infer.c
- mv infer.o objects
- gcc -c -I. -Itos -O make.c
- mv make.o objects
- gcc -c -I. -Itos -O stat.c
- mv stat.o objects
- gcc -c -I. -Itos -O expand.c
- mv expand.o objects
- gcc -c -I. -Itos -O dmstring.c
- mv dmstring.o objects
- gcc -c -I. -Itos -O hash.c
- mv hash.o objects
- gcc -c -I. -Itos -O dag.c
- mv dag.o objects
- gcc -c -I. -Itos -O dmake.c
- mv dmake.o objects
- gcc -c -I. -Itos -O path.c
- mv path.o objects
- gcc -c -I. -Itos -O imacs.c
- mv imacs.o objects
- gcc -c -I. -Itos -O sysintf.c
- mv sysintf.o objects
- gcc -c -I. -Itos -O parse.c
- mv parse.o objects
- gcc -c -I. -Itos -O getinp.c
- mv getinp.o objects
- gcc -c -I. -Itos -O quit.c
- mv quit.o objects
- gcc -c -I. -Itos -O state.c
- mv state.o objects
- gcc -c -I. -Itos -O basename.c
- mv basename.o objects
- gcc -c -I. -Itos -O dmdump.c
- mv dmdump.o objects
- gcc -c -I. -Itos -O macparse.c
- mv macparse.o objects
- gcc -c -I. -Itos -O rulparse.c
- mv rulparse.o objects
- gcc -c -I. -Itos -O percent.c
- mv percent.o objects
- gcc -c -I. -Itos -O function.c
- mv function.o objects
- gcc -c -I. -Itos -O tos/arlib.c
- mv arlib.o objects
- gcc -c -I. -Itos -O tos/ruletab.c
- mv ruletab.o objects
- gcc -c -I. -Itos -O tos/runargv.c
- mv runargv.o objects
- gcc -c -I. -Itos -O msdos/rmprq.c
- mv rmprq.o objects
- gcc -c -I. -Itos -O msdos/dirbrk.c
- mv dirbrk.o objects
- gcc -c -I. -Itos -O unix/bsd43/putenv.c
- mv putenv.o objects
- gcc -c -I. -Itos -O unix/bsd43/tempnam.c
- mv tempnam.o objects
- gcc -s -o dmake objects/*.o
- cp tos/startup.mk startup.mk
- SHAR_EOF
- chmod 0640 dmake/tos/make.sh ||
- echo 'restore of dmake/tos/make.sh failed'
- Wc_c="`wc -c < 'dmake/tos/make.sh'`"
- test 1480 -eq "$Wc_c" ||
- echo 'dmake/tos/make.sh: original size 1480, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/public.h ==============
- if test -f 'dmake/tos/public.h' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/public.h (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/public.h' &&
- /* RCS -- $Header$
- -- WARNING -- This file is AUTOMATICALLY GENERATED DO NOT EDIT IT
- --
- -- SYNOPSIS -- Local functions exported to be visible by others.
- --
- -- DESCRIPTION
- -- This file is generated by 'genpub'. Function declarations
- -- that appear in this file are extracted by 'genpub' from
- -- source files. Any function in the source file whose definition
- -- appears like:
- --
- -- PUBLIC return_type
- -- function( arg_list );
- -- type_expr1 arg1;
- -- ...
- --
- -- has its definition extracted and a line of the form:
- --
- -- return_type function ANSI((type_expr1,type_expr2,...));
- --
- -- entered into the output file.
- --
- -- AUTHOR
- -- Dennis Vadura, dvadura@watdragon.uwaterloo.ca
- -- CS DEPT, University of Waterloo, Waterloo, Ont., Canada
- --
- -- COPYRIGHT
- -- Copyright (c) 1990 by Dennis Vadura. All rights reserved.
- --
- -- This program is free software; you can redistribute it and/or
- -- modify it under the terms of the GNU General Public License
- -- (version 1), as published by the Free Software Foundation, and
- -- found in the file 'LICENSE' included with this distribution.
- --
- -- This program is distributed in the hope that it will be useful,
- -- but WITHOUT ANY WARRANTY; without even the implied warrant of
- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- -- GNU General Public License for more details.
- --
- -- You should have received a copy of the GNU General Public License
- -- along with this program; if not, write to the Free Software
- -- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- --
- -- LOG
- -- $Log$
- */
- X
- #ifndef _DMAKE_PUBLIC_h
- #define _DMAKE_PUBLIC_h
- X
- void Infer_recipe ANSI((CELLPTR, CELLPTR));
- int Make_targets ANSI(());
- int Exec_commands ANSI((CELLPTR));
- void Print_cmnd ANSI((char *, int, int));
- void Pop_dir ANSI((int));
- void Append_line ANSI((char *, int, FILE *, char *, int, int));
- void Stat_target ANSI((CELLPTR, int));
- char * Expand ANSI((char *));
- char * Apply_edit ANSI((char *, char *, char *, int, int));
- void Map_esc ANSI((char *));
- char* Apply_modifiers ANSI((int, char *));
- char* Tokenize ANSI((char *, char *));
- char * _strjoin ANSI((char *, char *, int, int));
- char * _stradd ANSI((char *, char *, int));
- char * _strapp ANSI((char *, char *));
- char * _strdup ANSI((char *));
- char * _strdup2 ANSI((char *));
- char * _strpbrk ANSI((char *, char *));
- char * _strspn ANSI((char *, char *));
- char * _strstr ANSI((char *, char *));
- char * _substr ANSI((char *, char *));
- uint16 Hash ANSI((char *, uint32 *));
- HASHPTR Get_name ANSI((char *, HASHPTR *, int));
- HASHPTR Search_table ANSI((HASHPTR *, char *, uint16 *, uint32 *));
- HASHPTR Def_macro ANSI((char *, char *, int));
- CELLPTR Def_cell ANSI((char *));
- LINKPTR Add_prerequisite ANSI((CELLPTR, CELLPTR, int, int));
- void Clear_prerequisites ANSI((CELLPTR));
- int Test_circle ANSI((CELLPTR, int));
- STRINGPTR Def_recipe ANSI((char *, STRINGPTR, int, int));
- t_attr Rcp_attribute ANSI((char *));
- int main ANSI((int, char **));
- FILE * Openfile ANSI((char *, int, int));
- FILE * Closefile ANSI(());
- FILE * Search_file ANSI((char *, char **));
- char * Filename ANSI(());
- int Nestlevel ANSI(());
- void No_ram ANSI(());
- int Usage ANSI((int));
- int Version ANSI(());
- char * Get_suffix ANSI((char *));
- char * Build_path ANSI((char *, char *));
- void Make_rules ANSI(());
- void Create_macro_vars ANSI(());
- time_t Do_stat ANSI((char *, char *, char **));
- int Do_touch ANSI((char *, char *, char **));
- void Void_lib_cache ANSI((char *, char *));
- time_t Do_time ANSI(());
- int Do_cmnd ANSI((char *, int, int, CELLPTR, int, int, int));
- char ** Pack_argv ANSI((int, int, char *));
- char * Read_env_string ANSI((char *));
- int Write_env_string ANSI((char *, char *));
- void ReadEnvironment ANSI(());
- void Catch_signals ANSI((void (*)()));
- void Clear_signals ANSI(());
- void Prolog ANSI((int, char* []));
- void Epilog ANSI((int));
- char * Get_current_dir ANSI(());
- int Set_dir ANSI((char*));
- char Get_switch_char ANSI(());
- FILE* Get_temp ANSI((char **, char *, int));
- FILE * Start_temp ANSI((char *, CELLPTR, char **));
- void Open_temp_error ANSI((char *, char *));
- void Link_temp ANSI((CELLPTR, FILE *, char *));
- void Close_temp ANSI((CELLPTR, FILE *));
- void Unlink_temp_files ANSI((CELLPTR));
- void Handle_result ANSI((int, int, int, CELLPTR));
- void Update_time_stamp ANSI((CELLPTR));
- int Remove_file ANSI((char *));
- void Parse ANSI((FILE *));
- int Get_line ANSI((char *, FILE *));
- char * Do_comment ANSI((char *, char **, int));
- char * Get_token ANSI((TKSTRPTR, char *, int));
- void Quit ANSI(());
- void Read_state ANSI(());
- void Write_state ANSI(());
- int Check_state ANSI((CELLPTR, STRINGPTR *, int));
- char* basename ANSI((char *));
- void Dump ANSI(());
- void Dump_recipe ANSI((STRINGPTR));
- int Parse_macro ANSI((char *, int));
- int Macro_op ANSI((char *));
- int Parse_rule_def ANSI((int *));
- int Rule_op ANSI((char *));
- void Add_recipe_to_list ANSI((char *, int, int));
- void Bind_rules_to_targets ANSI((int));
- int Set_group_attributes ANSI((char *));
- DFALINKPTR Match_dfa ANSI((char *));
- void Check_circle_dfa ANSI(());
- void Add_nfa ANSI((char *));
- char * Exec_function ANSI((char *));
- time_t seek_arch ANSI((char *, char *));
- int touch_arch ANSI((char *, char *));
- int runargv ANSI((CELLPTR, int, int, int, int, char *));
- void Clean_up_processes ANSI(());
- int Wait_for_child ANSI((int, int));
- void Remove_prq ANSI((CELLPTR));
- int If_root_path ANSI((char *));
- X
- #endif
- SHAR_EOF
- chmod 0640 dmake/tos/public.h ||
- echo 'restore of dmake/tos/public.h failed'
- Wc_c="`wc -c < 'dmake/tos/public.h'`"
- test 5487 -eq "$Wc_c" ||
- echo 'dmake/tos/public.h: original size 5487, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/putenv.c ==============
- if test -f 'dmake/tos/putenv.c' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/putenv.c (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/putenv.c' &&
- /* RCS -- $Header: /u2/dvadura/src/generic/dmake/src/tos/putenv.c,v 1.1 1992/01/24 03:27:17 dvadura Exp $
- -- SYNOPSIS -- my own putenv for BSD like systems.
- --
- -- DESCRIPTION
- -- This originally came from MKS, but I rewrote it to fix a bug with
- -- replacing existing strings, probably never happened but the code
- -- was wrong nonetheless.
- --
- -- AUTHOR
- -- Dennis Vadura, dvadura@watdragon.uwaterloo.ca
- -- CS DEPT, University of Waterloo, Waterloo, Ont., Canada
- --
- -- COPYRIGHT
- -- Copyright (c) 1990 by Dennis Vadura. All rights reserved.
- --
- -- This program is free software; you can redistribute it and/or
- -- modify it under the terms of the GNU General Public License
- -- (version 1), as published by the Free Software Foundation, and
- -- found in the file 'LICENSE' included with this distribution.
- --
- -- This program is distributed in the hope that it will be useful,
- -- but WITHOUT ANY WARRANTY; without even the implied warrant of
- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- -- GNU General Public License for more details.
- --
- -- You should have received a copy of the GNU General Public License
- -- along with this program; if not, write to the Free Software
- -- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- --
- -- LOG
- -- $Log: putenv.c,v $
- X * Revision 1.1 1992/01/24 03:27:17 dvadura
- X * dmake Version 3.8, Initial revision
- X *
- */
- X
- #include <stdio.h>
- #include <string.h>
- X
- int
- putenv( str )/*
- ===============
- X Take a string of the form NAME=value and stick it into the environment.
- X We do this by allocating a new set of pointers if we have to add a new
- X string and by replacing an existing pointer if the value replaces the value
- X of an existing string. */
- char *str;
- {
- X extern char **environ; /* The current environment. */
- X static char **ourenv = NULL; /* A new environment */
- X register char **p;
- X register char *q;
- X int size;
- X
- X /* First search the current environment and see if we can replace a
- X * string. */
- X for( p=environ; *p; p++ ) {
- X register char *s = str;
- X
- X for( q = *p; *q && *s && *s == *q; q++, s++ )
- X if( *s == '=' ) {
- X *p = str;
- X return(0); /* replaced it so go away */
- X }
- X }
- X
- X /* Ok, can't replace a string so need to grow the environment. */
- X size = p - environ + 2; /* size of new environment */
- X /* size of old is size-1 */
- X
- X /* It's the first time, so allocate a new environment since we don't know
- X * where the old one is comming from. */
- X if( ourenv == NULL ) {
- X if( (ourenv = (char **) malloc( sizeof(char *)*size )) == NULL )
- X return(1);
- X
- X memcpy( (char *)ourenv, (char *)environ, (size-2)*sizeof(char *) );
- X }
- X else if( (ourenv = (char **)realloc( ourenv, size*sizeof(char *))) == NULL )
- X return(1);
- X
- X ourenv[--size] = NULL;
- X ourenv[--size] = str;
- X
- X environ = ourenv;
- X return(0);
- }
- SHAR_EOF
- chmod 0640 dmake/tos/putenv.c ||
- echo 'restore of dmake/tos/putenv.c failed'
- Wc_c="`wc -c < 'dmake/tos/putenv.c'`"
- test 2932 -eq "$Wc_c" ||
- echo 'dmake/tos/putenv.c: original size 2932, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/rmprq.c ==============
- if test -f 'dmake/tos/rmprq.c' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/rmprq.c (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/rmprq.c' &&
- /* RCS -- $Header: /u2/dvadura/src/generic/dmake/src/tos/rmprq.c,v 1.1 1992/01/24 03:27:16 dvadura Exp $
- -- SYNOPSIS -- remove prerequisites code.
- --
- -- DESCRIPTION
- -- This code is different for DOS and for UNIX and parallel make
- -- architectures since the parallel case requires the rm's to be
- -- run in parallel, whereas DOS guarantees to run them sequentially.
- --
- -- AUTHOR
- -- Dennis Vadura, dvadura@watdragon.uwaterloo.ca
- -- CS DEPT, University of Waterloo, Waterloo, Ont., Canada
- --
- -- COPYRIGHT
- -- Copyright (c) 1990 by Dennis Vadura. All rights reserved.
- --
- -- This program is free software; you can redistribute it and/or
- -- modify it under the terms of the GNU General Public License
- -- (version 1), as published by the Free Software Foundation, and
- -- found in the file 'LICENSE' included with this distribution.
- --
- -- This program is distributed in the hope that it will be useful,
- -- but WITHOUT ANY WARRANTY; without even the implied warrant of
- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- -- GNU General Public License for more details.
- --
- -- You should have received a copy of the GNU General Public License
- -- along with this program; if not, write to the Free Software
- -- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- --
- -- LOG
- -- $Log: rmprq.c,v $
- X * Revision 1.1 1992/01/24 03:27:16 dvadura
- X * dmake Version 3.8, Initial revision
- X *
- */
- X
- #include "extern.h"
- #include "alloc.h"
- X
- void
- Remove_prq( tcp )
- CELLPTR tcp;
- {
- X tcp->ce_flag &= ~(F_MADE|F_VISITED);
- X tcp->CE_HOW->hw_flag &= ~(F_MADE|F_VISITED);
- X tcp->ce_time = 0L;
- X
- X Make( tcp, tcp->CE_HOW, NIL(CELL) );
- }
- SHAR_EOF
- chmod 0640 dmake/tos/rmprq.c ||
- echo 'restore of dmake/tos/rmprq.c failed'
- Wc_c="`wc -c < 'dmake/tos/rmprq.c'`"
- test 1725 -eq "$Wc_c" ||
- echo 'dmake/tos/rmprq.c: original size 1725, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/ruletab.c ==============
- if test -f 'dmake/tos/ruletab.c' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/ruletab.c (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/ruletab.c' &&
- /* RCS -- $Header: /u2/dvadura/src/generic/dmake/src/tos/ruletab.c,v 1.1 1992/01/24 03:27:12 dvadura Exp $
- -- SYNOPSIS -- Default initial configuration of dmake.
- --
- -- DESCRIPTION
- -- Define here the initial set of rules that are defined before
- -- dmake performs any processing.
- --
- -- AUTHOR
- -- Dennis Vadura, dvadura@watdragon.uwaterloo.ca
- -- CS DEPT, University of Waterloo, Waterloo, Ont., Canada
- --
- -- COPYRIGHT
- -- Copyright (c) 1990 by Dennis Vadura. All rights reserved.
- --
- -- This program is free software; you can redistribute it and/or
- -- modify it under the terms of the GNU General Public License
- -- (version 1), as published by the Free Software Foundation, and
- -- found in the file 'LICENSE' included with this distribution.
- --
- -- This program is distributed in the hope that it will be useful,
- -- but WITHOUT ANY WARRANTY; without even the implied warrant of
- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- -- GNU General Public License for more details.
- --
- -- You should have received a copy of the GNU General Public License
- -- along with this program; if not, write to the Free Software
- -- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- --
- -- LOG
- -- $Log: ruletab.c,v $
- X * Revision 1.1 1992/01/24 03:27:12 dvadura
- X * dmake Version 3.8, Initial revision
- X *
- */
- X
- /* These are control macros for dmake that MUST be defined at some point
- X * if they are NOT dmake will not work! These are default definitions. They
- X * may be overridden inside the .STARTUP makefile, they are here
- X * strictly so that dmake can parse the STARTUP makefile */
- X
- static char *_rules[] = {
- X "MAXPROCESSLIMIT := 1",
- X "MAXPROCESS := 1",
- X "MAXLINELENGTH := 8190",
- X ".IMPORT .IGNORE: ROOTDIR",
- X ".MAKEFILES : makefile.mk Makefile makefile",
- X ".SOURCE : .NULL",
- #include "startup.h"
- X 0 };
- X
- char **Rule_tab = _rules; /* for sundry reasons in Get_environment() */
- SHAR_EOF
- chmod 0640 dmake/tos/ruletab.c ||
- echo 'restore of dmake/tos/ruletab.c failed'
- Wc_c="`wc -c < 'dmake/tos/ruletab.c'`"
- test 1966 -eq "$Wc_c" ||
- echo 'dmake/tos/ruletab.c: original size 1966, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/runargv.c ==============
- if test -f 'dmake/tos/runargv.c' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/runargv.c (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/runargv.c' &&
- /* RCS -- $Header: /u2/dvadura/src/generic/dmake/src/tos/runargv.c,v 1.1 1992/01/24 03:27:13 dvadura Exp $
- -- SYNOPSIS -- run a sub process.
- --
- -- DESCRIPTION
- -- Use spawn to run a subprocess.
- --
- -- AUTHOR
- -- Dennis Vadura, dvadura@watdragon.uwaterloo.ca
- -- CS DEPT, University of Waterloo, Waterloo, Ont., Canada
- --
- -- COPYRIGHT
- -- Copyright (c) 1990 by Dennis Vadura. All rights reserved.
- --
- -- This program is free software; you can redistribute it and/or
- -- modify it under the terms of the GNU General Public License
- -- (version 1), as published by the Free Software Foundation, and
- -- found in the file 'LICENSE' included with this distribution.
- --
- -- This program is distributed in the hope that it will be useful,
- -- but WITHOUT ANY WARRANTY; without even the implied warrant of
- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- -- GNU General Public License for more details.
- --
- -- You should have received a copy of the GNU General Public License
- -- along with this program; if not, write to the Free Software
- -- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- --
- -- LOG
- -- $Log: runargv.c,v $
- X * Revision 1.1 1992/01/24 03:27:13 dvadura
- X * dmake Version 3.8, Initial revision
- X *
- */
- X
- #include <process.h>
- #include <errno.h>
- #include "extern.h"
- #include "sysintf.h"
- X
- static int _abort_flg = FALSE;
- static void _add_child ANSI((CELLPTR, int));
- static void _finished_child ANSI((int));
- X
- PUBLIC int
- runargv(target, ignore, group, last, shell, cmd)
- CELLPTR target;
- int ignore;
- int group;
- int last;
- int shell;
- char *cmd;
- {
- X int status;
- X char **argv;
- X char path[MAX_PATH_LEN+1];
- X
- X argv = Pack_argv( group, shell, cmd );
- X _add_child(target, ignore);
- X
- X /* save and restore current working directory across a spawn call */
- X strcpy(path, Get_current_dir());
- X status = spawnvp(P_WAIT, *argv, argv);
- X Set_dir(path);
- X
- X if( status == -1 ) Error("%s: %s", argv[0], strerror(errno));
- X _finished_child(status);
- X if( last && !Doing_bang ) Update_time_stamp( target );
- X
- X return( 0 );
- }
- X
- X
- PUBLIC void
- Clean_up_processes()
- {
- X _abort_flg = TRUE;
- X _finished_child(-1);
- }
- X
- X
- PUBLIC int
- Wait_for_child( abort_flg, pid )
- int abort_flg;
- int pid;
- {
- X return(1);
- }
- X
- X
- static int _valid = -1;
- static CELLPTR _tg;
- static int _ignore;
- X
- static void
- _add_child( target, ignore )
- CELLPTR target;
- int ignore;
- {
- X _tg = target;
- X _ignore = ignore;
- X _valid = 0;
- X
- X Current_target = NIL(CELL);
- }
- X
- X
- static void
- _finished_child(status)
- int status;
- {
- X if( _valid == -1 ) return;
- X Unlink_temp_files( _tg );
- X _valid = -1;
- X Handle_result( status, _ignore, _abort_flg, _tg );
- }
- SHAR_EOF
- chmod 0640 dmake/tos/runargv.c ||
- echo 'restore of dmake/tos/runargv.c failed'
- Wc_c="`wc -c < 'dmake/tos/runargv.c'`"
- test 2709 -eq "$Wc_c" ||
- echo 'dmake/tos/runargv.c: original size 2709, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/startup.h ==============
- if test -f 'dmake/tos/startup.h' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/startup.h (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/startup.h' &&
- /* This file contains the default value of the MAKESTARTUP variable.
- X * You must set the quoted string below to the default path to the startup
- X * variable, so that it gets compiled in. LEAVE ROOTDIR at the front of
- X * the path. This allows the user to customize his environment for dmake
- X * by setting up a new ROOTDIR environment variable. */
- X
- "MAKESTARTUP := $(ROOTDIR)/etc/startup.mk",
- SHAR_EOF
- chmod 0640 dmake/tos/startup.h ||
- echo 'restore of dmake/tos/startup.h failed'
- Wc_c="`wc -c < 'dmake/tos/startup.h'`"
- test 392 -eq "$Wc_c" ||
- echo 'dmake/tos/startup.h: original size 392, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/startup.mk ==============
- if test -f 'dmake/tos/startup.mk' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/startup.mk (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/startup.mk' &&
- # Generic UNIX DMAKE startup file. Customize to suit your needs.
- # Should work for both SYSV, and BSD 4.3
- # See the documentation for a description of internally defined macros.
- #
- # Disable warnings for macros redefined here that were given
- # on the command line.
- __.SILENT := $(.SILENT)
- .SILENT := yes
- X
- # Configuration parameters for DMAKE startup.mk file
- # Set these to NON-NULL if you wish to turn the parameter on.
- _HAVE_RCS := # yes => RCS is installed.
- _HAVE_SCCS := # yes => SCCS is installed.
- X
- # Applicable suffix definitions
- A := .olb # Libraries
- E := # Executables
- F := .f # Fortran
- O := .o # Objects
- P := .p # Pascal
- S := .s # Assembler sources
- V := ,v # RCS suffix
- X
- # Recipe execution configurations
- SHELL := /bin/sh
- SHELLFLAGS :=
- GROUPSHELL := $(SHELL)
- GROUPFLAGS :=
- SHELLMETAS := |();&<>?*][$$:\\#`'"
- GROUPSUFFIX := .bat
- DIVFILE = $(TMPFILE)
- X
- # Standard C-language command names and flags
- X CPP := /gnu/lib/cpp # C-preprocessor
- X CC := gcc # C-compiler and flags
- X CFLAGS +=
- X
- X AS := /gnu/lib/as # Assembler and flags
- X ASFLAGS +=
- X
- X LD = $(CC) # Loader and flags
- X LDFLAGS +=
- X LDLIBS =
- X
- # Definition of $(MAKE) macro for recursive makes.
- X MAKE = $(MAKECMD) $(MFLAGS)
- X
- # Definition of Print command for this system.
- X PRINT = lpr
- X
- # Language and Parser generation Tools and their flags
- X YACC := yacc # standard yacc
- X YFLAGS +=
- X YTAB := y.tab # yacc output files name stem.
- X
- X LEX := lex # standard lex
- X LFLAGS +=
- X LEXYY := lex.yy # lex output file
- X
- # Other Compilers, Tools and their flags
- X PC := pc # pascal compiler
- X RC := f77 # ratfor compiler
- X FC := f77 # fortran compiler
- X
- X CO := co # check out for RCS
- X COFLAGS += -q
- X
- X AR := gar # archiver
- X ARFLAGS+= ruv
- X
- X RM := /gnu/bin/rm # remove a file command
- X RMFLAGS +=
- X
- # Implicit generation rules for making inferences.
- # We don't provide .yr or .ye rules here. They're obsolete.
- # Rules for making *$O
- X %$O : %.c ; $(CC) $(CFLAGS) -c $<
- X %$O : %$P ; $(PC) $(PFLAGS) -c $<
- X %$O : %$S ; $(AS) $(ASFLAGS) $<
- X %$O : %.cl ; class -c $<
- X %$O : %.e %.r %.F %$F
- X $(FC) $(RFLAGS) $(EFLAGS) $(FFLAGS) -c $<
- X
- # Executables
- X %$E : %$O ; $(LD) $(LDFLAGS) -o $@ $< $(LDLIBES)
- X
- # lex and yacc rules
- X %.c : %.y ; $(YACC) $(YFLAGS) $<; mv $(YTAB).c $@
- X %.c : %.l ; $(LEX) $(LFLAGS) $<; mv $(LEXYY).c $@
- X
- # This rule tells how to make *.out from it's immediate list of prerequisites
- # UNIX only.
- X %.out :; $(LD) $(LDFLAGS) -o $@ $^ $(LDLIBS)
- X
- # RCS support
- .IF $(_HAVE_RCS)
- X % : %$V $$(@:d)RCS/$$(@:f)$V;- $(CO) $(COFLAGS) $@
- X .NOINFER : %$V $$(@:d)RCS/$$(@:f)$V
- .END
- X
- # SCCS support
- .IF $(_HAVE_SCCS)
- X % : s.% ; get $<
- X .NOINFER : s.%
- .END
- X
- # Recipe to make archive files.
- %$A :
- [
- X $(AR) $(ARFLAGS) $@ $?
- X $(RM) $(RMFLAGS) $?
- X ranlib $@
- ]
- X
- # DMAKE uses this recipe to remove intermediate targets
- .REMOVE :; $(RM) -f $<
- X
- # AUGMAKE extensions for SYSV compatibility
- @B = $(@:b)
- @D = $(@:d)
- @F = $(@:f)
- "*B" = $(*:b)
- "*D" = $(*:d)
- "*F" = $(*:f)
- <B = $(<:b)
- <D = $(<:d)
- <F = $(<:f)
- ?B = $(?:b)
- ?F = $(?:f)
- ?D = $(?:d)
- X
- # Turn warnings back to previous setting.
- .SILENT := $(__.SILENT)
- X
- # Local startup file if any
- .INCLUDE .IGNORE: "_startup.mk"
- SHAR_EOF
- chmod 0640 dmake/tos/startup.mk ||
- echo 'restore of dmake/tos/startup.mk failed'
- Wc_c="`wc -c < 'dmake/tos/startup.mk'`"
- test 3239 -eq "$Wc_c" ||
- echo 'dmake/tos/startup.mk: original size 3239, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/sysintf.h ==============
- if test -f 'dmake/tos/sysintf.h' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/sysintf.h (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/sysintf.h' &&
- /*
- ** assorted bits of system interface, for common routines inside dmake.
- ** System specific code can be found in the config.h files for each
- ** of the system specifications.
- */
- #define STAT stat
- #define VOID_LCACHE(l,m) (void) void_lcache(l,m)
- #define Hook_std_writes(A)
- #define GETPID getpid()
- X
- /*
- ** standard C items
- */
- X
- /*
- ** DOS interface standard items
- */
- #define getswitchar() '-'
- X
- /*
- ** make parameters
- */
- #define MAX_PATH_LEN 1024
- SHAR_EOF
- chmod 0640 dmake/tos/sysintf.h ||
- echo 'restore of dmake/tos/sysintf.h failed'
- Wc_c="`wc -c < 'dmake/tos/sysintf.h'`"
- test 441 -eq "$Wc_c" ||
- echo 'dmake/tos/sysintf.h: original size 441, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/tos/tempnam.c ==============
- if test -f 'dmake/tos/tempnam.c' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/tos/tempnam.c (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/tempnam.c' &&
- /*LINTLIBRARY*/
- #include <stdio.h>
- #include <string.h>
- #include <stdlib.h>
- X
- #define max(A,B) (((A)<(B))?(B):(A))
- X
- extern char *mktemp();
- extern int access();
- X
- static char *cpdir();
- static char *seed="AAA";
- X
- /* BSD stdio.h doesn't define P_tmpdir, so let's do it here */
- #ifndef P_tmpdir
- static char *P_tmpdir = "/tmp";
- #endif
- X
- char *
- tempnam(dir, prefix)
- char *dir; /* use this directory please (if non-NULL) */
- char *prefix; /* use this (if non-NULL) as filename prefix */
- {
- X register char *p, *q, *tmpdir;
- X int tl=0, dl=0, pl;
- X
- X pl = strlen(P_tmpdir);
- X
- X if( (tmpdir = getenv("TMPDIR")) != NULL ) tl = strlen(tmpdir);
- X if( dir != NULL ) dl = strlen(dir);
- X
- X if( (p = malloc((unsigned)(max(max(dl,tl),pl)+16))) == NULL )
- X return(NULL);
- X
- X *p = '\0';
- X
- X if( (tl == 0) || (access( cpdir(p, tmpdir), 3) != 0) )
- X if( (dl == 0) || (access( cpdir(p, dir), 3) != 0) )
- X if( access( cpdir(p, P_tmpdir), 3) != 0 )
- X if( access( cpdir(p, "/tmp"), 3) != 0 )
- X return(NULL);
- X
- X (void) strcat(p, "/");
- X if(prefix)
- X {
- X *(p+strlen(p)+5) = '\0';
- X (void)strncat(p, prefix, 5);
- X }
- X
- X (void)strcat(p, seed);
- X (void)strcat(p, "XXXXXX");
- X
- X q = seed;
- X while(*q == 'Z') *q++ = 'A';
- X ++*q;
- X
- X if(*mktemp(p) == '\0') return(NULL);
- X return(p);
- }
- X
- X
- X
- static char *
- cpdir(buf, str)
- char *buf;
- char *str;
- {
- X char *p;
- X
- X if(str != NULL)
- X {
- X (void) strcpy(buf, str);
- X p = buf - 1 + strlen(buf);
- X if(*p == '/') *p = '\0';
- X }
- X
- X return(buf);
- }
- SHAR_EOF
- chmod 0640 dmake/tos/tempnam.c ||
- echo 'restore of dmake/tos/tempnam.c failed'
- Wc_c="`wc -c < 'dmake/tos/tempnam.c'`"
- test 1506 -eq "$Wc_c" ||
- echo 'dmake/tos/tempnam.c: original size 1506, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/unix/386ix/ar.h ==============
- if test ! -d 'dmake/unix'; then
- mkdir 'dmake/unix'
- fi
- if test ! -d 'dmake/unix/386ix'; then
- mkdir 'dmake/unix/386ix'
- fi
- if test -f 'dmake/unix/386ix/ar.h' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/unix/386ix/ar.h (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/386ix/ar.h' &&
- #define PORTAR 1
- #include "/usr/include/ar.h"
- SHAR_EOF
- chmod 0640 dmake/unix/386ix/ar.h ||
- echo 'restore of dmake/unix/386ix/ar.h failed'
- Wc_c="`wc -c < 'dmake/unix/386ix/ar.h'`"
- test 46 -eq "$Wc_c" ||
- echo 'dmake/unix/386ix/ar.h: original size 46, current size' "$Wc_c"
- rm -f _shar_wnt_.tmp
- fi
- # ============= dmake/unix/386ix/config.h ==============
- if test -f 'dmake/unix/386ix/config.h' -a X"$1" != X"-c"; then
- echo 'x - skipping dmake/unix/386ix/config.h (File already exists)'
- rm -f _shar_wnt_.tmp
- else
- > _shar_wnt_.tmp
- sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/386ix/config.h' &&
- /* RCS -- $Header: /u2/dvadura/src/generic/dmake/src/unix/386ix/config.h,v 1.1 1992/01/24 03:28:02 dvadura Exp $
- -- SYNOPSIS -- Configurarion include file.
- --
- -- DESCRIPTION
- -- There is one of these for each specific machine configuration.
- -- It can be used to further tweek the machine specific sources
- -- so that they compile.
- --
- -- AUTHOR
- -- Dennis Vadura, dvadura@watdragon.uwaterloo.ca
- -- CS DEPT, University of Waterloo, Waterloo, Ont., Canada
- --
- -- COPYRIGHT
- -- Copyright (c) 1990 by Dennis Vadura. All rights reserved.
- --
- -- This program is free software; you can redistribute it and/or
- -- modify it under the terms of the GNU General Public License
- -- (version 1), as published by the Free Software Foundation, and
- -- found in the file 'LICENSE' included with this distribution.
- --
- -- This program is distributed in the hope that it will be useful,
- -- but WITHOUT ANY WARRANTY; without even the implied warrant of
- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- SHAR_EOF
- true || echo 'restore of dmake/unix/386ix/config.h failed'
- fi
- echo 'End of part 33, continue with part 34'
- echo 34 > _shar_seq_.tmp
- exit 0
- exit 0 # Just in case...
-